From 3d688dc1c17aeafa965883a370e73ce2442d635e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 17 Aug 2006 15:21:57 +0000 Subject: [PATCH] (compare-windows): lambda's take an arg and pass it to compare-windows-skip-whitespace. --- lisp/compare-w.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/compare-w.el b/lisp/compare-w.el index 3aa01424fb5..8dc0ac1e330 100644 --- a/lisp/compare-w.el +++ b/lisp/compare-w.el @@ -191,14 +191,16 @@ on third call it again advances points to the next difference and so on." (setq skip-func-1 (if ignore-whitespace (if (stringp compare-windows-whitespace) - (lambda () (compare-windows-skip-whitespace) + (lambda (pos) + (compare-windows-skip-whitespace pos) t) compare-windows-whitespace))) (with-current-buffer b2 (setq skip-func-2 (if ignore-whitespace (if (stringp compare-windows-whitespace) - (lambda () (compare-windows-skip-whitespace) + (lambda (pos) + (compare-windows-skip-whitespace pos) t) compare-windows-whitespace))) (push-mark p2 t) -- 2.30.2